﻿Imports System.Data
Imports System.Data.SqlClient
Partial Class Sistema_CAPPersonas
    Inherits System.Web.UI.Page
    Dim editar As Boolean
    Dim Edad As Integer
    Dim mensaje As String
    Dim Exepcion As String
    Dim NumeroError As Integer
    Public iderespuesta As Integer
    Dim actualizar As Integer
    Dim parentesco As Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            If String.IsNullOrEmpty(Request.QueryString.Item("idPersona")) = False Then
                hdIdPersona.Value = Request.QueryString.Item("idPersona")
            End If
            llenarCombos()

            If hdIdPersona.Value <> 0 Then
                traerPersona()
                editar = True

            End If


        End If

        If hdIdPersona.Value <> 0 Then
            editar = True
        End If

        listas()
    End Sub

    Sub llenarCombos()
        Using cnn As New SqlConnection(ConfigurationManager.ConnectionStrings("CNNdb").ConnectionString)
            cnn.Open()
            LlenarItems(rbTipodedocumento, "tipodocumento", cnn)
            LlenarItems(rbsexo, "Sexo", cnn)
            LlenarItems(rbEstudiaActualmente, "sino", cnn)
            LlenarItems(rbculturapuebloorigen, "CulturaLenguaPueblo", cnn)
            LlenarItems(rbtipoafiliacion, "TipoAfiliacion", cnn)
            LlenarItems(ddltipoafiliacionotro, "otroafiliacionsalud", cnn)
            LlenarItems(rbLocalizacion, "Ubicacion", cnn)
            LlenarItems(rbestratosocioeconomico, "estrato", cnn)
            LlenarItems(rbtenenciavivienda, "tenenciavivienda", cnn)
            LlenarItems(rbtipovivienda, "tipovivienda", cnn)
            LlenarItems(rbremitido, "sino", cnn)
            LlenarItems(rbmotivocierre, "motivocierre", cnn)
            LlenarItems(rbpertenecegurpoetnico, "sino", cnn)
            LlenarItems(rbculturareconocecomo, "culturareconocecomo", cnn)
            cnn.Close()
        End Using
    End Sub

    Sub LlenarItems(ByVal objeto As Object, ByVal pregunta As String, ByRef cnn As SqlConnection)
        If pregunta = "sino" Then : objeto.Items.Add(New ListItem("Sí", 1)) : objeto.Items.Add(New ListItem("No", 2)) : Exit Sub : End If
        Using drDatos As SqlDataReader = Funciones.TraerListas(pregunta, cnn)
            With objeto
                .DataSource = drDatos
                .DataTextField = "nombreopcion"
                .DataValueField = "valoropcion"
                .DataBind()
            End With
        End Using

    End Sub

    Sub listas()
        Dim rbl As RadioButtonList
        ' rbl = CType(rbReconoceDiscapacidad, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbReconoceDiscapacidad()") : Next
        rbl = CType(rbTipodedocumento, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbTipodedocumento()") : Next
        rbl = CType(rbpertenecegurpoetnico, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbpertenecegurpoetnico()") : Next
        rbl = CType(rbtipoafiliacion, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbtipoafiliacion()") : Next
        rbl = CType(rbLocalizacion, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbLocalizacion()") : Next

        rbl = CType(rbtenenciavivienda, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbtenenciavivienda()") : Next
        rbl = CType(rbtipovivienda, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbtipovivienda()") : Next
        rbl = CType(rbculturareconocecomo, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbculturareconocecomo()") : Next
        rbl = CType(rbremitido, RadioButtonList) : For Each li As ListItem In rbl.Items : li.Attributes.Add("onclick", "frbremitido()") : Next

        rbl.Dispose()
        rbl = Nothing
        CType(txtNumerodedocumento, TextBox).Attributes.Add("onKeyPress", "return ftxtNumerodedocumento(event)")
        Dim ddl As DropDownList
        ddl = CType(rbculturapuebloorigen, DropDownList) : For Each li As ListItem In ddl.Items : li.Attributes.Add("onclick", "frbculturapuebloorigen()") : Next
        ddl.Dispose()
        ddl = Nothing
        'CType(txtNombres, TextBox).Attributes.Add("onKeyPress", "return esChar(event)")
        CType(txtfechadenacimiento, TextBox).Attributes.Add("onBlur", "fcalcularedad()")
    End Sub

#Region "cargar Datos"

    Sub traerPersona() 'carga los controles con los datos de la bd
        Using bd As New BdHogaresDataContext
            Dim a = From i In bd.Web_CapPersonas
                      Where i.idPersona = hdIdPersona.Value
                      Select i
            Dim Persona As New Web_CapPersona
            Persona = a.FirstOrDefault()
            txthistoriaclinica.Text = IIf(IsDBNull(Persona.txthistoriaclinica), "", Persona.txthistoriaclinica)
            txtfechaatencion.Text = IIf(IsDBNull(Persona.txtfechaatencion), "", Persona.txtfechaatencion)
            txtapellidos.Text = IIf(IsDBNull(Persona.txtapellidos), "", Persona.txtapellidos)
            txtNombres.Text = IIf(IsDBNull(Persona.txtNombres), "", Persona.txtNombres)
            rbTipodedocumento.SelectedValue = IIf(IsDBNull(Persona.rbTipodedocumento), 0, Persona.rbTipodedocumento)
            txtNumerodedocumento.Text = IIf(IsDBNull(Persona.txtNumerodedocumento), "", Persona.txtNumerodedocumento)
            Municipionacimiento.cargarMunicipio(Persona.Municipionacimiento)
            txtfechadenacimiento.Text = IIf(IsDBNull(Persona.txtfechadenacimiento), "", Persona.txtfechadenacimiento)
            rbsexo.SelectedValue = IIf(IsDBNull(Persona.rbsexo), 0, Persona.rbsexo)
            rbEstudiaActualmente.SelectedValue = IIf(IsDBNull(Persona.rbEstudiaActualmente), 0, Persona.rbEstudiaActualmente)
            ddEscolaridad.SelectedValue = IIf(IsDBNull(Persona.ddEscolaridad), 0, Persona.ddEscolaridad)
            ddEstadoCivil.SelectedValue = IIf(IsDBNull(Persona.ddEstadoCivil), 0, Persona.ddEstadoCivil)
            txtocupacion.SelectedValue = IIf(IsDBNull(Persona.txtocupacion), 0, Persona.txtocupacion)
            rbtipoafiliacion.SelectedValue = IIf(IsDBNull(Persona.rbtipoafiliacion), 0, Persona.rbtipoafiliacion)
            ddltipoafiliacionotro.SelectedValue = IIf(IsDBNull(Persona.ddltipoafiliacionotro), 0, Persona.ddltipoafiliacionotro)
            txtnombreeps.Text = IIf(IsDBNull(Persona.txtnombreeps), "", Persona.txtnombreeps)
            txtnombreips.Text = IIf(IsDBNull(Persona.txtnombreips), "", Persona.txtnombreips)
            Municipioafiliacion.cargarMunicipio(Persona.Municipioafiliacion)
            rbLocalizacion.SelectedValue = IIf(IsDBNull(Persona.rbLocalizacion), 0, Persona.rbLocalizacion)
            txtDireccion.Text = IIf(IsDBNull(Persona.txtDireccion), "", Persona.txtDireccion)
            txtBarrio.Text = IIf(IsDBNull(Persona.txtBarrio), "", Persona.txtBarrio)
            txtComuna.Text = IIf(IsDBNull(Persona.txtComuna), "", Persona.txtComuna)
            txtCorregimiento.Text = IIf(IsDBNull(Persona.txtCorregimiento), "", Persona.txtCorregimiento)
            txtVereda.Text = IIf(IsDBNull(Persona.txtVereda), "", Persona.txtVereda)
            txttelefonoresidencia.Text = IIf(IsDBNull(Persona.txttelefonoresidencia), "", Persona.txttelefonoresidencia)
            rbestratosocioeconomico.SelectedValue = IIf(IsDBNull(Persona.rbestratosocioeconomico), 0, Persona.rbestratosocioeconomico)
            rbtenenciavivienda.SelectedValue = IIf(IsDBNull(Persona.rbtenenciavivienda), 0, Persona.rbtenenciavivienda)
            txtrbtenenciavivienda.Text = IIf(IsDBNull(Persona.txtrbtenenciavivienda), "", Persona.txtrbtenenciavivienda)
            rbtipovivienda.SelectedValue = IIf(IsDBNull(Persona.rbtipovivienda), 0, Persona.rbtipovivienda)
            txttipovivienda.Text = IIf(IsDBNull(Persona.txttipovivienda), "", Persona.txttipovivienda)
            ddtipopoblacion.SelectedValue = IIf(IsDBNull(Persona.ddtipopoblacion), 0, Persona.ddtipopoblacion)
            rbremitido.SelectedValue = IIf(IsDBNull(Persona.rbremitido), 0, Persona.rbremitido)
            txtprofesionalqueremite.Text = IIf(IsDBNull(Persona.txtprofesionalqueremite), "", Persona.txtprofesionalqueremite)
            txtcargo.Text = IIf(IsDBNull(Persona.txtcargo), "", Persona.txtcargo)
            txtinstitucion.Text = IIf(IsDBNull(Persona.txtinstitucion), "", Persona.txtinstitucion)
            txtserviciosolicitado.Text = IIf(IsDBNull(Persona.txtserviciosolicitado), "", Persona.txtserviciosolicitado)
            txtmotivoremision.Text = IIf(IsDBNull(Persona.txtmotivoremision), "", Persona.txtmotivoremision)
            Cbsintomatologia1.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia1), 0, Persona.Cbsintomatologia1) = 1, True, False)
            Cbsintomatologia2.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia2), 0, Persona.Cbsintomatologia2) = 1, True, False)
            Cbsintomatologia3.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia3), 0, Persona.Cbsintomatologia3) = 1, True, False)
            Cbsintomatologia4.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia4), 0, Persona.Cbsintomatologia4) = 1, True, False)
            Cbsintomatologia5.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia5), 0, Persona.Cbsintomatologia5) = 1, True, False)
            Cbsintomatologia6.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia6), 0, Persona.Cbsintomatologia6) = 1, True, False)
            Cbsintomatologia7.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia7), 0, Persona.Cbsintomatologia7) = 1, True, False)
            Cbsintomatologia8.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia8), 0, Persona.Cbsintomatologia8) = 1, True, False)
            Cbsintomatologia9.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia9), 0, Persona.Cbsintomatologia9) = 1, True, False)
            Cbsintomatologia10.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia10), 0, Persona.Cbsintomatologia10) = 1, True, False)
            Cbsintomatologia11.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia11), 0, Persona.Cbsintomatologia11) = 1, True, False)
            Cbsintomatologia12.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia12), 0, Persona.Cbsintomatologia12) = 1, True, False)
            Cbsintomatologia13.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia13), 0, Persona.Cbsintomatologia13) = 1, True, False)
            Cbsintomatologia14.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia14), 0, Persona.Cbsintomatologia14) = 1, True, False)
            Cbsintomatologia15.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia15), 0, Persona.Cbsintomatologia15) = 1, True, False)
            Cbsintomatologia16.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia16), 0, Persona.Cbsintomatologia16) = 1, True, False)
            Cbsintomatologia17.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia17), 0, Persona.Cbsintomatologia17) = 1, True, False)
            Cbsintomatologia18.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia18), 0, Persona.Cbsintomatologia18) = 1, True, False)
            Cbsintomatologia19.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia19), 0, Persona.Cbsintomatologia19) = 1, True, False)
            Cbsintomatologia20.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia20), 0, Persona.Cbsintomatologia20) = 1, True, False)
            Cbsintomatologia21.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia21), 0, Persona.Cbsintomatologia21) = 1, True, False)
            Cbsintomatologia22.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia22), 0, Persona.Cbsintomatologia22) = 1, True, False)
            Cbsintomatologia23.Checked = IIf(IIf(IsDBNull(Persona.Cbsintomatologia23), 0, Persona.Cbsintomatologia23) = 1, True, False)
            Cbfactoresriesgo1.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo1), 0, Persona.Cbfactoresriesgo1) = 1, True, False)
            Cbfactoresriesgo2.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo2), 0, Persona.Cbfactoresriesgo2) = 1, True, False)
            Cbfactoresriesgo3.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo3), 0, Persona.Cbfactoresriesgo3) = 1, True, False)
            Cbfactoresriesgo4.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo4), 0, Persona.Cbfactoresriesgo4) = 1, True, False)
            Cbfactoresriesgo5.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo5), 0, Persona.Cbfactoresriesgo5) = 1, True, False)
            Cbfactoresriesgo6.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo6), 0, Persona.Cbfactoresriesgo6) = 1, True, False)
            Cbfactoresriesgo7.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo7), 0, Persona.Cbfactoresriesgo7) = 1, True, False)
            Cbfactoresriesgo8.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo8), 0, Persona.Cbfactoresriesgo8) = 1, True, False)
            Cbfactoresriesgo9.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo9), 0, Persona.Cbfactoresriesgo9) = 1, True, False)
            Cbfactoresriesgo10.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo10), 0, Persona.Cbfactoresriesgo10) = 1, True, False)
            Cbfactoresriesgo11.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo11), 0, Persona.Cbfactoresriesgo11) = 1, True, False)
            Cbfactoresriesgo12.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo12), 0, Persona.Cbfactoresriesgo12) = 1, True, False)
            Cbfactoresriesgo13.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo13), 0, Persona.Cbfactoresriesgo13) = 1, True, False)
            Cbfactoresriesgo14.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo14), 0, Persona.Cbfactoresriesgo14) = 1, True, False)
            Cbfactoresriesgo15.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo15), 0, Persona.Cbfactoresriesgo15) = 1, True, False)
            Cbfactoresriesgo16.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo16), 0, Persona.Cbfactoresriesgo16) = 1, True, False)
            Cbfactoresriesgo17.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo17), 0, Persona.Cbfactoresriesgo17) = 1, True, False)
            Cbfactoresriesgo18.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo18), 0, Persona.Cbfactoresriesgo18) = 1, True, False)
            Cbfactoresriesgo19.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo19), 0, Persona.Cbfactoresriesgo19) = 1, True, False)
            Cbfactoresriesgo20.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo20), 0, Persona.Cbfactoresriesgo20) = 1, True, False)
            Cbfactoresriesgo21.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo21), 0, Persona.Cbfactoresriesgo21) = 1, True, False)
            Cbfactoresriesgo22.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo22), 0, Persona.Cbfactoresriesgo22) = 1, True, False)
            Cbfactoresriesgo23.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo23), 0, Persona.Cbfactoresriesgo23) = 1, True, False)
            Cbfactoresriesgo24.Checked = IIf(IIf(IsDBNull(Persona.Cbfactoresriesgo24), 0, Persona.Cbfactoresriesgo24) = 1, True, False)
            txtlogroterapeutico.Text = IIf(IsDBNull(Persona.txtlogroterapeutico), "", Persona.txtlogroterapeutico)
            rbmotivocierre.SelectedValue = IIf(IsDBNull(Persona.rbmotivocierre), 0, Persona.rbmotivocierre)
            txtfechacierre.Text = IIf(IsDBNull(Persona.txtfechacierre), "", Persona.txtfechacierre)
            txtnombreterapeuta.Text = IIf(IsDBNull(Persona.txtnombreterapeuta), "", Persona.txtnombreterapeuta)
            txtcedula.Text = IIf(IsDBNull(Persona.txtcedula), "", Persona.txtcedula)
            rbpertenecegurpoetnico.SelectedValue = IIf(IsDBNull(Persona.rbpertenecegurpoetnico), 0, Persona.rbpertenecegurpoetnico)

            rbculturareconocecomo.SelectedValue = IIf(IsDBNull(Persona.rbculturareconocecomo), 0, Persona.rbculturareconocecomo)
            txtculturareconocecomo.Text = IIf(IsDBNull(Persona.txtculturareconocecomo), "", Persona.txtculturareconocecomo)

            rbculturapuebloorigen.SelectedValue = IIf(IsDBNull(Persona.rbculturapuebloorigen), 0, Persona.rbculturapuebloorigen)

            txtgrupoindigena.Text = IIf(IsDBNull(Persona.txtgrupoindigena), "", Persona.txtgrupoindigena)

            txtañoscumplidos.Text = IIf(IsDBNull(Persona.txtañoscumplidos), "", Persona.txtañoscumplidos)
            txtgenograma.Text = IIf(IsDBNull(Persona.txtgenograma), "", Persona.txtgenograma)
            txtcie10.Text = IIf(IsDBNull(Persona.txtcie10), "", Persona.txtcie10)
            rbreferencia.SelectedValue = IIf(IsDBNull(Persona.rbreferencia), 0, Persona.rbreferencia)

        End Using
    End Sub
#End Region

#Region "Metodos"

    Sub guardar() 'Guarda los datos en la bd
        Dim Persona As New Web_CapPersona
        Persona.txthistoriaclinica = txthistoriaclinica.Text
        Persona.txtfechaatencion = txtfechaatencion.Text
        Persona.txtapellidos = txtapellidos.Text
        Persona.txtNombres = txtNombres.Text
        Persona.rbTipodedocumento = IIf(rbTipodedocumento.SelectedIndex = "-1", 0, rbTipodedocumento.SelectedIndex + 1)
        Persona.txtNumerodedocumento = txtNumerodedocumento.Text
        Persona.Municipionacimiento = Municipionacimiento.CodMunicipio
        Persona.txtfechadenacimiento = txtfechadenacimiento.Text
        Persona.rbsexo = IIf(rbsexo.SelectedIndex = "-1", 0, rbsexo.SelectedIndex + 1)
        Persona.rbEstudiaActualmente = IIf(rbEstudiaActualmente.SelectedIndex = "-1", 0, rbEstudiaActualmente.SelectedIndex + 1)
        Persona.ddEscolaridad = ddEscolaridad.SelectedValue
        Persona.ddEstadoCivil = ddEstadoCivil.SelectedValue
        Persona.txtocupacion = txtocupacion.SelectedValue
        Persona.rbtipoafiliacion = IIf(rbtipoafiliacion.SelectedIndex = "-1", 0, rbtipoafiliacion.SelectedIndex + 1)
        Persona.ddltipoafiliacionotro = ddltipoafiliacionotro.SelectedValue
        Persona.txtnombreeps = txtnombreeps.Text
        Persona.txtnombreips = txtnombreips.Text
        Persona.Municipioafiliacion = Municipioafiliacion.CodMunicipio
        Persona.rbLocalizacion = IIf(rbLocalizacion.SelectedIndex = "-1", 0, rbLocalizacion.SelectedIndex + 1)
        Persona.txtDireccion = txtDireccion.Text
        Persona.txtBarrio = txtBarrio.Text
        Persona.txtComuna = txtComuna.Text
        Persona.txtCorregimiento = txtCorregimiento.Text
        Persona.txtVereda = txtVereda.Text
        Persona.txttelefonoresidencia = txttelefonoresidencia.Text
        Persona.rbestratosocioeconomico = IIf(rbestratosocioeconomico.SelectedIndex = "-1", 0, rbestratosocioeconomico.SelectedIndex + 1)
        Persona.rbtenenciavivienda = IIf(rbtenenciavivienda.SelectedIndex = "-1", 0, rbtenenciavivienda.SelectedIndex + 1)
        Persona.txtrbtenenciavivienda = txtrbtenenciavivienda.Text
        Persona.rbtipovivienda = IIf(rbtipovivienda.SelectedIndex = "-1", 0, rbtipovivienda.SelectedIndex + 1)
        Persona.txttipovivienda = txttipovivienda.Text
        Persona.ddtipopoblacion = ddtipopoblacion.SelectedValue
        Persona.rbremitido = IIf(rbremitido.SelectedIndex = "-1", 0, rbremitido.SelectedIndex + 1)
        Persona.txtprofesionalqueremite = txtprofesionalqueremite.Text
        Persona.txtcargo = txtcargo.Text
        Persona.txtinstitucion = txtinstitucion.Text
        Persona.txtserviciosolicitado = txtserviciosolicitado.Text
        Persona.txtmotivoremision = txtmotivoremision.Text
        Persona.Cbsintomatologia1 = IIf(Cbsintomatologia1.Checked = True, 1, 0)
        Persona.Cbsintomatologia2 = IIf(Cbsintomatologia2.Checked = True, 1, 0)
        Persona.Cbsintomatologia3 = IIf(Cbsintomatologia3.Checked = True, 1, 0)
        Persona.Cbsintomatologia4 = IIf(Cbsintomatologia4.Checked = True, 1, 0)
        Persona.Cbsintomatologia5 = IIf(Cbsintomatologia5.Checked = True, 1, 0)
        Persona.Cbsintomatologia6 = IIf(Cbsintomatologia6.Checked = True, 1, 0)
        Persona.Cbsintomatologia7 = IIf(Cbsintomatologia7.Checked = True, 1, 0)
        Persona.Cbsintomatologia8 = IIf(Cbsintomatologia8.Checked = True, 1, 0)
        Persona.Cbsintomatologia9 = IIf(Cbsintomatologia9.Checked = True, 1, 0)
        Persona.Cbsintomatologia10 = IIf(Cbsintomatologia10.Checked = True, 1, 0)
        Persona.Cbsintomatologia11 = IIf(Cbsintomatologia11.Checked = True, 1, 0)
        Persona.Cbsintomatologia12 = IIf(Cbsintomatologia12.Checked = True, 1, 0)
        Persona.Cbsintomatologia13 = IIf(Cbsintomatologia13.Checked = True, 1, 0)
        Persona.Cbsintomatologia14 = IIf(Cbsintomatologia14.Checked = True, 1, 0)
        Persona.Cbsintomatologia15 = IIf(Cbsintomatologia15.Checked = True, 1, 0)
        Persona.Cbsintomatologia16 = IIf(Cbsintomatologia16.Checked = True, 1, 0)
        Persona.Cbsintomatologia17 = IIf(Cbsintomatologia17.Checked = True, 1, 0)
        Persona.Cbsintomatologia18 = IIf(Cbsintomatologia18.Checked = True, 1, 0)
        Persona.Cbsintomatologia19 = IIf(Cbsintomatologia19.Checked = True, 1, 0)
        Persona.Cbsintomatologia20 = IIf(Cbsintomatologia20.Checked = True, 1, 0)
        Persona.Cbsintomatologia21 = IIf(Cbsintomatologia21.Checked = True, 1, 0)
        Persona.Cbsintomatologia22 = IIf(Cbsintomatologia22.Checked = True, 1, 0)
        Persona.Cbsintomatologia23 = IIf(Cbsintomatologia23.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo1 = IIf(Cbfactoresriesgo1.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo2 = IIf(Cbfactoresriesgo2.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo3 = IIf(Cbfactoresriesgo3.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo4 = IIf(Cbfactoresriesgo4.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo5 = IIf(Cbfactoresriesgo5.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo6 = IIf(Cbfactoresriesgo6.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo7 = IIf(Cbfactoresriesgo7.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo8 = IIf(Cbfactoresriesgo8.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo9 = IIf(Cbfactoresriesgo9.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo10 = IIf(Cbfactoresriesgo10.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo11 = IIf(Cbfactoresriesgo11.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo12 = IIf(Cbfactoresriesgo12.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo13 = IIf(Cbfactoresriesgo13.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo14 = IIf(Cbfactoresriesgo14.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo15 = IIf(Cbfactoresriesgo15.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo16 = IIf(Cbfactoresriesgo16.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo17 = IIf(Cbfactoresriesgo17.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo18 = IIf(Cbfactoresriesgo18.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo19 = IIf(Cbfactoresriesgo19.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo20 = IIf(Cbfactoresriesgo20.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo21 = IIf(Cbfactoresriesgo21.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo22 = IIf(Cbfactoresriesgo22.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo23 = IIf(Cbfactoresriesgo23.Checked = True, 1, 0)
        Persona.Cbfactoresriesgo24 = IIf(Cbfactoresriesgo24.Checked = True, 1, 0)
        Persona.txtlogroterapeutico = txtlogroterapeutico.Text
        Persona.rbmotivocierre = IIf(rbmotivocierre.SelectedIndex = "-1", 0, rbmotivocierre.SelectedIndex + 1)
        Persona.txtfechacierre = txtfechacierre.Text
        Persona.txtnombreterapeuta = txtnombreterapeuta.Text
        Persona.txtcedula = txtcedula.Text
        Persona.rbpertenecegurpoetnico = IIf(rbpertenecegurpoetnico.SelectedIndex = "-1", 0, rbpertenecegurpoetnico.SelectedIndex + 1)
        Persona.txtañoscumplidos = txtañoscumplidos.Text
        Persona.txtgenograma = txtgenograma.Text
        Persona.txtcie10 = txtcie10.Text
        Persona.rbreferencia = IIf(rbreferencia.SelectedIndex = "-1", 0, rbreferencia.SelectedIndex + 1)
        Persona.rbculturareconocecomo = IIf(rbculturareconocecomo.SelectedIndex = "-1", 0, rbculturareconocecomo.SelectedIndex + 1)
        Persona.txtculturareconocecomo = txtculturareconocecomo.Text
        Persona.rbculturapuebloorigen = rbculturapuebloorigen.SelectedValue
        Persona.txtgrupoindigena = txtgrupoindigena.Text

        Using bd As New BdHogaresDataContext
            bd.Web_CapPersonas.InsertOnSubmit(Persona)
            bd.SubmitChanges()
            bd.registrarLog(Context.User.Identity.Name, 5, Request.CurrentExecutionFilePath)
        End Using
    End Sub

    Sub actualizardatos() ' Actualiza la informacion cuando ya existe el registro
        Using bda As New BdHogaresDataContext
            Dim Persona = (From i In bda.Web_CapPersonas
                      Where i.idPersona = hdIdPersona.Value
                      Select i).Single
            Persona.txthistoriaclinica = txthistoriaclinica.Text
            Persona.txtfechaatencion = txtfechaatencion.Text
            Persona.txtapellidos = txtapellidos.Text
            Persona.txtNombres = txtNombres.Text
            Persona.rbTipodedocumento = IIf(rbTipodedocumento.SelectedIndex = "-1", 0, rbTipodedocumento.SelectedIndex + 1)
            Persona.txtNumerodedocumento = txtNumerodedocumento.Text
            Persona.Municipionacimiento = Municipionacimiento.CodMunicipio
            Persona.txtfechadenacimiento = txtfechadenacimiento.Text
            Persona.rbsexo = IIf(rbsexo.SelectedIndex = "-1", 0, rbsexo.SelectedIndex + 1)

            Persona.rbEstudiaActualmente = IIf(rbEstudiaActualmente.SelectedIndex = "-1", 0, rbEstudiaActualmente.SelectedIndex + 1)
            Persona.ddEscolaridad = ddEscolaridad.SelectedValue
            Persona.ddEstadoCivil = ddEstadoCivil.SelectedValue
            Persona.txtocupacion = txtocupacion.SelectedValue
            Persona.rbtipoafiliacion = IIf(rbtipoafiliacion.SelectedIndex = "-1", 0, rbtipoafiliacion.SelectedIndex + 1)
            Persona.ddltipoafiliacionotro = ddltipoafiliacionotro.SelectedValue
            Persona.txtnombreeps = txtnombreeps.Text
            Persona.txtnombreips = txtnombreips.Text
            Persona.Municipioafiliacion = Municipioafiliacion.CodMunicipio
            Persona.rbLocalizacion = IIf(rbLocalizacion.SelectedIndex = "-1", 0, rbLocalizacion.SelectedIndex + 1)
            Persona.txtDireccion = txtDireccion.Text
            Persona.txtBarrio = txtBarrio.Text
            Persona.txtComuna = txtComuna.Text
            Persona.txtCorregimiento = txtCorregimiento.Text
            Persona.txtVereda = txtVereda.Text
            Persona.txttelefonoresidencia = txttelefonoresidencia.Text
            Persona.rbestratosocioeconomico = IIf(rbestratosocioeconomico.SelectedIndex = "-1", 0, rbestratosocioeconomico.SelectedIndex + 1)
            Persona.rbtenenciavivienda = IIf(rbtenenciavivienda.SelectedIndex = "-1", 0, rbtenenciavivienda.SelectedIndex + 1)
            Persona.txtrbtenenciavivienda = txtrbtenenciavivienda.Text
            Persona.rbtipovivienda = IIf(rbtipovivienda.SelectedIndex = "-1", 0, rbtipovivienda.SelectedIndex + 1)
            Persona.txttipovivienda = txttipovivienda.Text
            Persona.ddtipopoblacion = ddtipopoblacion.SelectedValue
            Persona.rbremitido = IIf(rbremitido.SelectedIndex = "-1", 0, rbremitido.SelectedIndex + 1)
            Persona.txtprofesionalqueremite = txtprofesionalqueremite.Text
            Persona.txtcargo = txtcargo.Text
            Persona.txtinstitucion = txtinstitucion.Text
            Persona.txtserviciosolicitado = txtserviciosolicitado.Text
            Persona.txtmotivoremision = txtmotivoremision.Text
            Persona.Cbsintomatologia1 = IIf(Cbsintomatologia1.Checked = True, 1, 0)
            Persona.Cbsintomatologia2 = IIf(Cbsintomatologia2.Checked = True, 1, 0)
            Persona.Cbsintomatologia3 = IIf(Cbsintomatologia3.Checked = True, 1, 0)
            Persona.Cbsintomatologia4 = IIf(Cbsintomatologia4.Checked = True, 1, 0)
            Persona.Cbsintomatologia5 = IIf(Cbsintomatologia5.Checked = True, 1, 0)
            Persona.Cbsintomatologia6 = IIf(Cbsintomatologia6.Checked = True, 1, 0)
            Persona.Cbsintomatologia7 = IIf(Cbsintomatologia7.Checked = True, 1, 0)
            Persona.Cbsintomatologia8 = IIf(Cbsintomatologia8.Checked = True, 1, 0)
            Persona.Cbsintomatologia9 = IIf(Cbsintomatologia9.Checked = True, 1, 0)
            Persona.Cbsintomatologia10 = IIf(Cbsintomatologia10.Checked = True, 1, 0)
            Persona.Cbsintomatologia11 = IIf(Cbsintomatologia11.Checked = True, 1, 0)
            Persona.Cbsintomatologia12 = IIf(Cbsintomatologia12.Checked = True, 1, 0)
            Persona.Cbsintomatologia13 = IIf(Cbsintomatologia13.Checked = True, 1, 0)
            Persona.Cbsintomatologia14 = IIf(Cbsintomatologia14.Checked = True, 1, 0)
            Persona.Cbsintomatologia15 = IIf(Cbsintomatologia15.Checked = True, 1, 0)
            Persona.Cbsintomatologia16 = IIf(Cbsintomatologia16.Checked = True, 1, 0)
            Persona.Cbsintomatologia17 = IIf(Cbsintomatologia17.Checked = True, 1, 0)
            Persona.Cbsintomatologia18 = IIf(Cbsintomatologia18.Checked = True, 1, 0)
            Persona.Cbsintomatologia19 = IIf(Cbsintomatologia19.Checked = True, 1, 0)
            Persona.Cbsintomatologia20 = IIf(Cbsintomatologia20.Checked = True, 1, 0)
            Persona.Cbsintomatologia21 = IIf(Cbsintomatologia21.Checked = True, 1, 0)
            Persona.Cbsintomatologia22 = IIf(Cbsintomatologia22.Checked = True, 1, 0)
            Persona.Cbsintomatologia23 = IIf(Cbsintomatologia23.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo1 = IIf(Cbfactoresriesgo1.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo2 = IIf(Cbfactoresriesgo2.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo3 = IIf(Cbfactoresriesgo3.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo4 = IIf(Cbfactoresriesgo4.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo5 = IIf(Cbfactoresriesgo5.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo6 = IIf(Cbfactoresriesgo6.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo7 = IIf(Cbfactoresriesgo7.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo8 = IIf(Cbfactoresriesgo8.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo9 = IIf(Cbfactoresriesgo9.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo10 = IIf(Cbfactoresriesgo10.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo11 = IIf(Cbfactoresriesgo11.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo12 = IIf(Cbfactoresriesgo12.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo13 = IIf(Cbfactoresriesgo13.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo14 = IIf(Cbfactoresriesgo14.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo15 = IIf(Cbfactoresriesgo15.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo16 = IIf(Cbfactoresriesgo16.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo17 = IIf(Cbfactoresriesgo17.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo18 = IIf(Cbfactoresriesgo18.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo19 = IIf(Cbfactoresriesgo19.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo20 = IIf(Cbfactoresriesgo20.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo21 = IIf(Cbfactoresriesgo21.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo22 = IIf(Cbfactoresriesgo22.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo23 = IIf(Cbfactoresriesgo23.Checked = True, 1, 0)
            Persona.Cbfactoresriesgo24 = IIf(Cbfactoresriesgo24.Checked = True, 1, 0)
            Persona.txtlogroterapeutico = txtlogroterapeutico.Text
            Persona.rbmotivocierre = IIf(rbmotivocierre.SelectedIndex = "-1", 0, rbmotivocierre.SelectedIndex + 1)
            Persona.txtfechacierre = txtfechacierre.Text
            Persona.txtnombreterapeuta = txtnombreterapeuta.Text
            Persona.txtcedula = txtcedula.Text
            Persona.rbpertenecegurpoetnico = IIf(rbpertenecegurpoetnico.SelectedIndex = "-1", 0, rbpertenecegurpoetnico.SelectedIndex + 1)
            Persona.txtañoscumplidos = txtañoscumplidos.Text
            Persona.txtgenograma = txtgenograma.Text
            Persona.txtcie10 = txtcie10.Text
            Persona.rbreferencia = IIf(rbreferencia.SelectedIndex = "-1", 0, rbreferencia.SelectedIndex + 1)
            Persona.rbculturareconocecomo = IIf(rbculturareconocecomo.SelectedIndex = "-1", 0, rbculturareconocecomo.SelectedIndex + 1)
            Persona.txtculturareconocecomo = txtculturareconocecomo.Text
            Persona.rbculturapuebloorigen = IIf(rbculturapuebloorigen.SelectedIndex = "-1", 0, rbculturapuebloorigen.SelectedIndex + 1)
            Persona.txtgrupoindigena = txtgrupoindigena.Text
            Persona.rbculturapuebloorigen = rbculturapuebloorigen.SelectedValue
            bda.SubmitChanges()
            bda.registrarLog(Context.User.Identity.Name, 6, Request.CurrentExecutionFilePath)
        End Using
    End Sub
#End Region
#Region "Enventos controles"
    Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardar.Click

        If Page.IsValid = False Then
            Response.Write("<script>alert('Datos incompletos.')</script>")
            Exit Sub
        Else

            '  Try
            If editar = True Then
                actualizardatos()
            Else
                guardar()
            End If
            Response.Redirect("InicioCAP.aspx")
            ' Catch ex As Exception
            '    Throw ex
            ' End Try
        End If
    End Sub

    Protected Sub CustomValidator1_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator1.ServerValidate

        Dim mensaje As New StringBuilder



        Dim sintomatologia As Integer

        If Cbsintomatologia1.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia2.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia3.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia4.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia5.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia6.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia7.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia8.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia9.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia10.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia11.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia12.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia13.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia14.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia15.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia16.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia17.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia18.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia19.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia20.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia21.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia22.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If Cbsintomatologia23.Checked = True Then
            sintomatologia = sintomatologia + 1
        End If

        If sintomatologia = 0 Then
            mensaje.AppendLine("</br>Debe registar alguna sintomatologia")
        End If

        Dim factoresriesgo As Integer

        If Cbfactoresriesgo1.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo2.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo3.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo4.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo5.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo6.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo7.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo8.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo9.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo10.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo11.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo12.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo13.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo14.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo15.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo16.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo17.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo18.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo19.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo20.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo21.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo22.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo23.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If Cbfactoresriesgo24.Checked = True Then
            factoresriesgo = factoresriesgo + 1
        End If

        If factoresriesgo = 0 Then
            mensaje.AppendLine("</br>Debe registar algun factor de riesgo")
        End If


        If rbremitido.SelectedValue = "1" And txtprofesionalqueremite.Text = "" Then
            mensaje.AppendLine("</br>Debe responder el profesional que remite")
        End If

        If rbremitido.SelectedValue = "1" And txtcargo.Text = "" Then
            mensaje.AppendLine("</br>Debe responder el cargo del profesional que remite")
        End If

        If rbremitido.SelectedValue = "1" And txtinstitucion.Text = "" Then
            mensaje.AppendLine("</br>Debe responder la institución del profesional que remite")
        End If

        If rbremitido.SelectedValue = "1" And txtserviciosolicitado.Text = "" Then
            mensaje.AppendLine("</br>Debe responder el servicio solicitado del profesional que remite")
        End If


        If rbremitido.SelectedValue = "1" And txtmotivoremision.Text = "" Then
            mensaje.AppendLine("</br>Debe responder el motivo de la remisión")
        End If


        If rbtipoafiliacion.SelectedValue = "4" And ddltipoafiliacionotro.SelectedValue = "0" Then
            mensaje.AppendLine("</br>Debe responder cual otro tipo de afiliación tiene")
        End If

        If (rbtipoafiliacion.SelectedValue = "1" Or rbtipoafiliacion.SelectedValue = "2") And (txtnombreeps.Text = "") Then
            mensaje.AppendLine("</br>Debe responder que EPS tiene")
        End If

        If (rbtipoafiliacion.SelectedValue = "1" Or rbtipoafiliacion.SelectedValue = "2") And (txtnombreips.Text = "") Then
            mensaje.AppendLine("</br>Debe responder que IPS tiene")
        End If

        If rbtenenciavivienda.SelectedValue = "4" And txtrbtenenciavivienda.Text = "" Then
            mensaje.AppendLine("</br>Debe responder que otra tenencia de vivienda tiene")
        End If

        If rbtipovivienda.SelectedValue = "6" And txttipovivienda.Text = "" Then
            mensaje.AppendLine("</br>Debe responder que otro tipo de vivienda tiene")
        End If



        '        If rbculturareconocecomo.SelectedValue = "9" And txtculturareconocecomo.Text = "" Then
        '            mensaje.AppendLine("</br>En la pregunta 2.  Por su cultura, lengua, pueblo de origen o rasgos físicos se reconoce como:, debe responder cual otro")
        '        End If

        '        If rbculturareconocecomo.SelectedValue = "10" And rbculturapuebloorigen.SelectedValue = 0 Then
        '            mensaje.AppendLine("</br>En la pregunta 2.  Por su cultura, lengua, pueblo de origen o rasgos físicos se reconoce como:, debe responder a cual grupo indigena corresponde")
        '        End If


        '        If rbculturapuebloorigen.SelectedValue = "90" And txtgrupoindigena.Text = "" Then
        '            mensaje.AppendLine("</br>En la pregunta 2.  Por su cultura, lengua, pueblo de origen o rasgos físicos se reconoce como:, debe responder a cual otro grupo indigena pertenece")
        '        End If


        '        If cbidiomaotro.Checked = True And txtidiomacual.Text = "" Then
        '            mensaje.AppendLine("</br>Debe responder que otro idioma habla")
        '        End If

        '        If rbtipoafiliacion.SelectedValue = "4" And ddltipoafiliacionotro.SelectedValue = "0" Then
        '            mensaje.AppendLine("</br>En la pregunta 3 debe responder cual otro tipo de afiliación tiene")
        '        End If

        '        If (rbtipoafiliacion.SelectedValue = "1" Or rbtipoafiliacion.SelectedValue = "2") And (txtnombreeps.Text = "") Then
        '            mensaje.AppendLine("</br>En la pregunta 3 debe responder que EPS tiene")
        '        End If

        '        If (rbtipoafiliacion.SelectedValue = "1" Or rbtipoafiliacion.SelectedValue = "2") And (txtnombreips.Text = "") Then
        '            mensaje.AppendLine("</br>En la pregunta 3 debe responder que IPS tiene")
        '        End If

        '        Dim contador As Integer
        '        If CbPensar.Checked = True Then
        '            contador = contador + 1
        '        End If



        '        If CbRetener.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbRelacionarse.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbMasticar.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbDesplazarse.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbPercibir.Checked = True Then
        '            contador = contador + 1
        '        End If


        '        If CbLlevar.Checked = True Then
        '            contador = contador + 1
        '        End If


        '        If CbOtra.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbHablar.Checked = True Then
        '            contador = contador + 1
        '        End If


        '        If CbOir.Checked = True Then
        '            contador = contador + 1
        '        End If


        '        If CbMantener.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbDistinguir.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbCaminar.Checked = True Then
        '            contador = contador + 1
        '        End If


        '        If CbAlimentarse.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If CbCambiar.Checked = True Then
        '            contador = contador + 1
        '        End If


        '        If CbNinguna.Checked = True Then
        '            contador = contador + 1
        '        End If

        '        If rbReconoceDiscapacidad.SelectedValue = "1" And contador = 0 Then
        '            mensaje.AppendLine("</br>En la pregunta 4 debe responder cual discapacidad")
        '        End If


        '        If CbOtra.Checked = True And txtlimitacioncual.Text = "" Then
        '            mensaje.AppendLine("</br>En la pregunta 4 debe responder que otra discapacidad")
        '        End If

        If mensaje.Length > 0 Then
            args.IsValid = False
            Me.CustomValidator1.ErrorMessage = mensaje.ToString()
            Me.CustomValidator1.Enabled = True
        End If

    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Response.Redirect("InicioCAP.aspx")
    End Sub
#End Region

    Protected Sub btnImprimir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
        If Page.IsValid = False Then
            Response.Write("<script>alert('Datos incompletos.')</script>")
            Exit Sub
        Else


            If editar = True Then
                actualizardatos()
            Else
                guardar()
            End If
            Response.Redirect("CAPPersonasImprimir.aspx?idPersona=" & hdIdPersona.Value)

        End If
    End Sub
End Class